home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / geoCom.lnx / SYSTEM INFO_com (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  8.2 KB  |  168 lines
  1. system info_COM
  2. prg FORMATTED geos FILE v1.0
  3. wRITE iMAGE v2.1
  4. GEOwRITE    v2.2
  5. {$60} qUELLTEXT ZUR GEOcom-dEMODISKETTE {$60}
  6. {$60} (C)94 by denis d\hler/falk rehwagen{$60}
  7. {$60} dIE dEMODISKETTE KANN KOSTENLOS ANGEFORDERT {$60}
  8. {$60} WERDEN BEI: {$60}
  9. {$60} guss, dENIS d{$7c}HLER , gORKISTR.18 , 04347 lEIPZIG {$60}
  10. name "system info"
  11. author "dENIS d{$7c}HLER"
  12. class "sYSTEM iNFO v1.0"
  13. startflag$40
  14. bytevarZZ,E,MUSTER,FERTIG,X1,X2,LW,E1,M,BYTE,I
  15. intvarY1,Y2,REU
  16. strvar 5; STRING,TYP
  17. strvar 10;WOCHENTAG,TAG,VERS,NAT
  18. strvar 2;MODUS
  19. row 4 strvar16;DISK
  20. row 12 bytevarDAT : row 4 bytevarGD,HD
  21. row 4 strvar13;DRIVE
  22. row 4 intvarADRESSE
  23. strvar16;FLOPPYNAME : strvar13;WAS
  24. row 67 bytevarICON
  25. label BERECHNEN1,BERECHNEN2
  26. label SCHLEIFE,TASTE,INFO,START
  27. @START
  28. FLOPPYNAME=(diskname) : LW=CURDRIVE
  29. (ICON<1>)=21 : (ICON<2>)=0 : (ICON<3>)=$BF
  30. cls : pattern0
  31. {$60}aUFBAUEN{$60}
  32. rect(dbl2,0),17,(dbl180,1),117 : frame(dbl2,0),17,(dbl180,1),117
  33. rect(dbl184,0),2,(dbl316,1),14 : frame(dbl184,0),2,(dbl316,1),14
  34. {$60}tEXT SCHREIBEN{$60}
  35. setpos(dbl200,0),10 : print"/biNFO-sYSTEM/p"
  36. setpos(dbl20,0),50 : print"bITTE EINEN mOMENT WARTEN !"
  37. {$60} lOGO {$60}
  38. pattern1 : rect(dbl53,0),148,(dbl282,1),192
  39. pattern0 : rect(dbl45,0),140,(dbl274,1),184
  40. frame(dbl45,0),140,(dbl274,1),184
  41. if(SCRFLAG==$80)then
  42.   setpos230,155 : print"/o/bsYSTEM- UND fILE-iNFO'S/p"
  43.   setpos278,165 : print"(W)'93 BY dENIS d{$7c}HLER"
  44.   setpos222,175 : print"qUELLTEXT KANN FREI VERWENDET WERDEN !"
  45.   (ICON<0>)=(3or128)
  46.   setpos74,155 : print"/o/bsYSTEM- UND fILE-iNFO'S/p"
  47.   setpos112,165 : print"(W)'93 BY dENIS d{$7c}HLER"
  48.   setpos74,175 : print"qUELLTEXT KANN FREI VERWENDET WERDEN !"
  49.   (ICON<0>)=3 
  50. endif
  51. wait50
  52. {$60}pATTERN BERECHNEN{$60}
  53. X1=17 : X2=34 : Y1=184 : Y2=205 : FERTIG=0 : MUSTER=0 : BERECHNEN2
  54. X1=34 : X2=51 : Y1=184 : Y2=205 : BERECHNEN2 : X1=51 : X2=68 : Y1=184 : Y2=205 : BERECHNEN2
  55. X1=68 : X2=85 : Y1=184 : Y2=205 : BERECHNEN2 : X1=85 : X2=101 : Y1=184 : Y2=205 : BERECHNEN2
  56. X1=101 : X2=117 : Y1=184 : Y2=205 : BERECHNEN2
  57. BERECHNEN1 
  58. {$60}GEFUNDENE dATEN ZEIGEN{$60}
  59. pattern0
  60. rect(dbl6,0),40,(dbl178,1),80 
  61. rect(dbl2,0),120,(dbl317,1),196 : frame(dbl2,0),120,(dbl317,1),196
  62. setpos(dbl10,0),30 : print"/phEUTE IST :"
  63. setpos(dbl70,0),30 : printWOCHENTAG; : print", DER "; : printTAG
  64. setpos(dbl10,0),40 : print"aKTUELLE lw-nR: /b"
  65. setpos(dbl105,0),40 : print(strLW)
  66. setpos(dbl10,0),50 : print"/pram-gR{$7c}{$7e}E: /b"
  67. setpos(dbl105,0),50 : print(strREU); : print" kbYTE/p"
  68. setpos(dbl10,0),60 : print"/pzEICHEN-mODUS: /b"
  69. setpos(dbl105,0),60 : printMODUS; : print"-zEICHEN"
  70. setpos(dbl10,0),70 : print"/pcOMPUTER: /b"
  71. setpos(dbl105,0),70 : printTYP
  72. setpos(dbl10,0),80 : print"/pgEOS vERSION: /b"
  73. setpos(dbl105,0),80 : printVERS
  74. setpos(dbl105,0),90 : printNAT
  75. setpos(dbl10,0),100 : print"/psERIENNUMMERR: /b"
  76. setpos(dbl105,0),100 : print(str(SYSREG<0>))
  77. setpos(dbl105,0),110 :  print"$"; : print(hexstr(SYSREG<0>))
  78. frame(dbl260,0),133,(dbl266,0),139 : frame(dbl280,0),133,(dbl286,0),139
  79. frame(dbl260,0),144,(dbl266,0),150 : frame(dbl280,0),144,(dbl286,0),150
  80. frame(dbl260,0),154,(dbl266,0),160 : frame(dbl280,0),154,(dbl286,0),160
  81. frame(dbl260,0),165,(dbl266,0),171 : frame(dbl280,0),165,(dbl286,0),171
  82. setpos(dbl255,0),129 : print"/psYS hAU "
  83. setpos(dbl8,0),140 : print"/blW. a: /p"; : print(DRIVE<0>)
  84. setpos(dbl135,0),140 : print"/bdISK : /p"; : print(DISK<0>)
  85. if(GD<0>) : invert(dbl261,0),134,(dbl265,0),138 : endif
  86. if(HD<0>) : invert(dbl281,0),134,(dbl285,0),138 : endif
  87.   setpos(dbl8,0),150 : print"/blW. b: /p"; : print(DRIVE<1>)
  88.   setpos(dbl135,0),150 : print"/bdISK : /p"; : print(DISK<1>)
  89. if(GD<1>) : invert(dbl261,0),145,(dbl265,0),149 : endif
  90. if(HD<1>) : invert(dbl281,0),145,(dbl285,0),149 : endif
  91.    setpos(dbl8,0),160 : print"/blW. c: /p"; : print(DRIVE<2>)
  92.    setpos(dbl135,0),160 : print"/bdISK : /p"; : print(DISK<2>)
  93. if(GD<2>) : invert(dbl261,0),155,(dbl265,0),159 : endif
  94. if(HD<2>) : invert(dbl281,0),155,(dbl285,0),159 : endif
  95.  setpos(dbl8,0),170 : print"/blW. d: /p"; : print(DRIVE<3>)
  96.  setpos(dbl135,0),170 : print"/bdISK : /p"; : print(DISK<3>)
  97. if(GD<3>) : invert(dbl261,0),166,(dbl265,0),170 : endif
  98. if(HD<3>) : invert(dbl281,0),166,(dbl285,0),170 : endif
  99. setpos(dbl8,0),180 : print"/bdRUCKER: /p"; : print(str16at$8465)
  100. setpos(dbl8,0),190 : print"/beINGABE: /p" ; : print(str16at$88CB)
  101.   setpos(dbl165,0),190 : print"/bmAUS: " 
  102.   move$84C1,(adr(ICON<4>)),$BF
  103.   bitmap(dbl25),174,(objectat(adr(ICON<0>)))
  104. print"/p" : goto SCHLEIFE
  105. @BERECHNEN1
  106. {$60}wOCHENTAG BERECHNEN{$60}
  107. (DAT<0>)=5 : (DAT<1>)=1 : (DAT<2>)=1 : (DAT<3>)=4 : (DAT<4>)=6 : (DAT<5>)=2 
  108. (DAT<6>)=4 : (DAT<7>)=0 : (DAT<8>)=3 : (DAT<9>)=5 : (DAT<10>)=1 : (DAT<11>)=3
  109. TAG=((str(DATE<2>))+".") : TAG=(TAG+(str(DATE<1>))) : TAG=((TAG+".")+(str(DATE<0>)))
  110. ZZ=(((DAT<((DATE<1>)-1)>)+(DATE<2>))+((DATE<0>)-93)) : if (ZZ>37) : ZZ=(ZZ-6) : endif
  111. repeat : if(ZZ>7) : ZZ=(ZZ-7) : endif : until (ZZ < 8) : decZZ
  112. if(ZZ==0) : WOCHENTAG="sONNTAG" : endif : if(ZZ==1) : WOCHENTAG="mONTAG" : endif
  113. if(ZZ==2) : WOCHENTAG="dIENSTAG" : endif : if(ZZ==3) : WOCHENTAG="mITTWOCH" : endif
  114. if(ZZ==4) : WOCHENTAG="dONNERSTAG" : endif : if(ZZ==5) : WOCHENTAG="fREITAG" : endif
  115. if(ZZ==6) : WOCHENTAG="sAMSTAG" : endif
  116. {$60}ram-gR{$7c}{$7e}E AUSRECHNEN{$60}
  117. REU=((int(peek$88C3))*64)
  118. {$60}vERSIONSTYP AUSLESEN{$60}
  119. if(VERSION==$12) : VERS="v. 1.2" : endif
  120. if(VERSION==$13) : VERS="v. 1.3" : endif
  121. if(VERSION==$15) : VERS="v. 1.5" : endif
  122. if(VERSION==$20) : VERS="v. 2.0" : endif
  123. {$60}sERIENNUMMER AUSLESEN{$60}
  124. callsys$C196,SYSREG
  125. {$60}kERNAL-nATIONALIT{$7b}T{$60}
  126. if(NATION==$00) : NAT="usa" : endif : if(NATION==$01) : NAT="gERMANY" : endif
  127. {$60}bILDSCHIRMMODUS UND cOMPUTERTYP{$60}
  128. if(SCRFLAG==128) : MODUS="80" : else : MODUS="40" : endif
  129. if((peek$C013)==128) : TYP="c 128" : else : TYP="c 64" : endif
  130. {$60}lAUFWERKE UND dISKETTENNAMEN AUSLESEN{$60}
  131. {$60}aDRESSEN DER dISKETTENNAMEN{$60}
  132. (ADRESSE<0>)=$841E : (ADRESSE<1>)=$8430 : (ADRESSE<2>)=$88DC : (ADRESSE<3>)=$88EE
  133. E1=0 : repeat : (DRIVE<E1>)="kEIN lAUFWERK !" : incE1 : until(E1==4)
  134. device8 : E=8 : E1=0 
  135.  repeat
  136.  opendisk
  137.  if(IOSTAT<>0) : (DISK<E1>)="kEINE dISK !" : else
  138.  (DISK<E1>)=(str16at(ADRESSE<E1>)) : I=(peek$82BD)
  139.  if (I ==$42) : (GD<E1>) = 1 : else : (GD<E1>)=0 : endif
  140.  if (I ==$50) : (HD<E1>) = 1 : else : (HD<E1>)=0 : endif
  141.  endif
  142.  if((DRTYPE<E>)==1) : (DRIVE<E1>)="tYP 1541" : endif
  143.  if((DRTYPE<E>)==2) : (DRIVE<E1>)="tYP 1571" : endif
  144.  if((DRTYPE<E>)==3) : (DRIVE<E1>)="tYP 1581" : endif
  145.  if((DRTYPE<E>)==65) : (DRIVE<E1>)="SCHATT. 1541" : endif
  146.  if((DRTYPE<E>)==66) : (DRIVE<E1>)="SCHATT. 1571" : endif
  147.  if((DRTYPE<E>)==67) : (DRIVE<E1>)="SCHATT. 1581" : endif
  148.  if((DRTYPE<E>)==129) : (DRIVE<E1>)="ram 1541" : endif
  149.  if((DRTYPE<E>)==130) : (DRIVE<E1>)="ram 1571" : endif
  150.  if((DRTYPE<E>)==131) : (DRIVE<E1>)="ram 1581" : endif
  151.  incE : incE1 : drive : if(IOSTAT<>0) : deviceLW : return : endif
  152. until(E==12) : deviceLW : return
  153. @BERECHNEN2
  154.  repeat : pattern MUSTER : rect(dblY1,0),X1,(dblY2,1),X2 : frame(dblY1,0),X1,(dblY2,1),X2
  155.   Y1=(Y1+22) : Y2=(Y2+22) : incMUSTER : incFERTIG
  156.  until(FERTIG == 6) : FERTIG=0
  157. return
  158. @SCHLEIFE
  159. on 0 gotoTASTE : mainloop
  160. gotoSCHLEIFE
  161. @TASTE
  162.  if (KEYDATA==$F1) : end : endif
  163.  if (KEYDATA==233) : INFO : endif
  164. goto SCHLEIFE
  165. @INFO
  166.  strnbox"/bsYSTEM- UND fILE-INFO'S/p","(W)'93 BY dENIS d{$7c}HLER","qUELLTEXT FREI VERWENDBAR !"
  167. return
  168.